list p=12f675 #include errorlevel -302 __CONFIG _CP_OFF & _CPD_OFF & _BODEN_OFF & _MCLRE_OFF & _WDT_OFF & _PWRTE_ON & _INTRC_OSC_NOCLKOUT ;\\\\\\\\\\\\\\\\\\\\\ cblock 0x20 TIME0 TIME1 endc ;\\\\\\\\\\\\\\\\\\\\\ ORG 0 GOTO MAIN ;\\\\\\\\\\\\\\\\\\\\\ MAIN BSF STATUS,RP0 MOVLW b'00001100' MOVWF TRISIO MOVLW b'00000000' MOVWF ANSEL BCF STATUS,RP0 MOVLW b'00000111' MOVWF CMCON CLRF GPIO CLRF FSR BSF FSR,0 ;\\\\\\\\\\\\\\\\\\\\\ LOOP MOVLW D'255' MOVWF TIME0 MOVWF TIME1 LOOP1 BTFSC GPIO,2 ;Hi Active“ό—͂̏ꍇ@ BTFSS GOTO OFF BTFSS GPIO,3 ;‰ρ“]•ϋŒό•ΟX‚̏ꍇ@ BTFSC GOTO CW2 ;CW1(1‘Š—γŽ₯) CW2(2‘Š—γŽ₯) CW12(1-2‘Š—γŽ₯) GOTO CCW2 ;CCW1(1‘Š—γŽ₯) CCW2(2‘Š—γŽ₯) CCW12(1-2‘Š—γŽ₯) ;\\\\\\\\\\\\\\\\\\\\\ OFF DECFSZ TIME0,F GOTO LOOP1 DECFSZ TIME1,F GOTO LOOP1 CLRF GPIO GOTO LOOP ;\\\\\\\\\\\\\\\\\\\\\ 1‘Š—γŽ₯ƒ‹[ƒ`ƒ“ CW1 BTFSC FSR,0 GOTO R1 BTFSC FSR,1 GOTO R2 BTFSC FSR,2 GOTO R3 BTFSC FSR,3 GOTO R0 GOTO MAIN CCW1 BTFSC FSR,0 GOTO R3 BTFSC FSR,1 GOTO R0 BTFSC FSR,2 GOTO R1 BTFSC FSR,3 GOTO R2 GOTO MAIN ;\\\\\\\\\\\\\\\\\\\\\ R0 MOVLW b'00000001' MOVWF GPIO CLRF FSR BSF FSR,0 GOTO LOOP R1 MOVLW b'00000010' MOVWF GPIO CLRF FSR BSF FSR,1 GOTO LOOP R2 MOVLW b'00010000' MOVWF GPIO CLRF FSR BSF FSR,2 GOTO LOOP R3 MOVLW b'00100000' MOVWF GPIO CLRF FSR BSF FSR,3 GOTO LOOP ;\\\\\\\\\\\\\\\\\\\\\ 2‘Š—γŽ₯ƒ‹[ƒ`ƒ“ CW2 BTFSC FSR,0 GOTO R1A BTFSC FSR,1 GOTO R2A BTFSC FSR,2 GOTO R3A BTFSC FSR,3 GOTO R0A GOTO MAIN CCW2 BTFSC FSR,0 GOTO R3A BTFSC FSR,1 GOTO R0A BTFSC FSR,2 GOTO R1A BTFSC FSR,3 GOTO R2A GOTO MAIN ;\\\\\\\\\\\\\\\\\\\\\ R0A MOVLW b'00000011' MOVWF GPIO CLRF FSR BSF FSR,0 GOTO LOOP R1A MOVLW b'00010010' MOVWF GPIO CLRF FSR BSF FSR,1 GOTO LOOP R2A MOVLW b'00110000' MOVWF GPIO CLRF FSR BSF FSR,2 GOTO LOOP R3A MOVLW b'00100001' MOVWF GPIO CLRF FSR BSF FSR,3 GOTO LOOP ;\\\\\\\\\\\\\\\\\\\\\ 1-2‘Š—γŽ₯ƒ‹[ƒ`ƒ“ CW12 BTFSC FSR,0 GOTO R1B BTFSC FSR,1 GOTO R2B BTFSC FSR,2 GOTO R3B BTFSC FSR,3 GOTO R4B BTFSC FSR,4 GOTO R5B BTFSC FSR,5 GOTO R6B BTFSC FSR,6 GOTO R7B BTFSC FSR,7 GOTO R0B GOTO MAIN CCW12 BTFSC FSR,0 GOTO R7B BTFSC FSR,1 GOTO R0B BTFSC FSR,2 GOTO R1B BTFSC FSR,3 GOTO R2B BTFSC FSR,4 GOTO R3B BTFSC FSR,5 GOTO R4B BTFSC FSR,6 GOTO R5B BTFSC FSR,7 GOTO R6B GOTO MAIN ;\\\\\\\\\\\\\\\\\\\\\ R0B MOVLW b'00000011' MOVWF GPIO CLRF FSR BSF FSR,0 GOTO LOOP R1B MOVLW b'00000010' MOVWF GPIO CLRF FSR BSF FSR,1 GOTO LOOP R2B MOVLW b'00010010' MOVWF GPIO CLRF FSR BSF FSR,2 GOTO LOOP R3B MOVLW b'00010000' MOVWF GPIO CLRF FSR BSF FSR,3 GOTO LOOP R4B MOVLW b'00110000' MOVWF GPIO CLRF FSR BSF FSR,4 GOTO LOOP R5B MOVLW b'00100000' MOVWF GPIO CLRF FSR BSF FSR,5 GOTO LOOP R6B MOVLW b'00100001' MOVWF GPIO CLRF FSR BSF FSR,6 GOTO LOOP R7B MOVLW b'00000001' MOVWF GPIO CLRF FSR BSF FSR,7 GOTO LOOP ;\\\\\\\\\\\\\\\\\\\\\ END